home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00538_ICON7.GIF.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  215 b   |  16 lines
  1. on mouseUp
  2.   global s, switchit
  3.   if soundBusy(2) = 0 then
  4.     mixdown()
  5.   end if
  6.   set s to random(26)
  7.   zoom()
  8.   zoom()
  9.   zoom()
  10.   zoom()
  11.   unLoadCast()
  12.   go(#next)
  13.   do("sel" & s & EMPTY)
  14.   set switchit to 0
  15. end
  16.